home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Singing Fun! / Sunday Savers: Singing Fun!.iso / pc / intro.dxr / 00014.ls < prev    next >
Encoding:
Text File  |  2009-10-07  |  318 b   |  14 lines
  1. on exitFrame me
  2.   global programTitle
  3.   startTimer()
  4.   repeat while the timer < (3 * 60)
  5.     go(the frame)
  6.   end repeat
  7.   regStatus = baReadRegString("Software\Covenant\" & programTitle, "Registration", "Error", "HKEY_LOCAL_MACHINE")
  8.   if regStatus = "Error" then
  9.     go("Register")
  10.   else
  11.     go("goOn")
  12.   end if
  13. end
  14.